Profile of (eval 270)[Sub/Quote.pm:3]

Filename	(eval 270)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 168 statements in 712µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
14	1	1	389µs	1.60ms	JSON::Schema::Modern::Document::_set_metaschema_uri
1	1	1	10µs	25µs	Method::Generate::Accessor::_Generated::BEGIN@39.122
1	1	1	9µs	22µs	JSON::Schema::Modern::Document::BEGIN@7.120
1	1	1	3µs	3µs	Method::Generate::Accessor::_Generated::BEGIN@12.121

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
3	1	1µs			my $isa_check_for_metaschema_5furi = ${$_[1]->{"\$isa_check_for_metaschema_5furi"}};
4	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
5	1	1µs			my $coerce_for_metaschema_5furi = ${$_[1]->{"\$coerce_for_metaschema_5furi"}};
6					package JSON::Schema::Modern::Document;
7	2	38µs	2	35µs	# spent 22µs (9+13) within JSON::Schema::Modern::Document::BEGIN@7.120 which was called: # once (9µs+13µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 22µs making 1 call to JSON::Schema::Modern::Document::BEGIN@7.120 # spent 13µs making 1 call to warnings::unimport
8					# spent 1.60ms (389µs+1.21) within JSON::Schema::Modern::Document::_set_metaschema_uri which was called 14 times, avg 114µs/call: # 14 times (389µs+1.21ms) by JSON::Schema::Modern::Document::traverse at line 192 of JSON/Schema/Modern/Document.pm, avg 114µs/call sub _set_metaschema_uri {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 3µs within Method::Generate::Accessor::_Generated::BEGIN@12.121 which was called: # once (3µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	0s			$^H = 1762;
14	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	4µs			%^H = (
16					);
17	1	127µs	1	3µs	} # spent 3µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.121
18					# END quote_sub PRELUDE
19	28	36µs			scalar do { my $value = do {
20	14	37µs			local $Method::Generate::Accessor::CurrentAttribute = {
21					init_arg => undef(),
22					name => "metaschema_uri",
23					step => "coercion",
24					};
25	14	12µs			(my $_return),
26					(my $_error), (my $_old_error = $@);
27	14	3µs			(eval {
28	14	50µs	14	1.17ms	($@ = $_old_error), # spent 1.17ms making 14 calls to JSON::Schema::Modern::Document::__ANON__[JSON/Schema/Modern/Document.pm:45], avg 84µs/call
29					($_return =
30					$coerce_for_metaschema_5furi->($_[1])),
31					1
32					} or
33					$_error = CORE::ref $@ ? $@ : "coercion for \"metaschema_uri\" failed: ".$@);
34	14	9µs			($@ = $_old_error),
35					(defined $_error and CORE::die $_error);
36	14	16µs			$_return;
37					}
38					;
39	30	333µs	30	80µs	# spent 25µs (10+15) within Method::Generate::Accessor::_Generated::BEGIN@39.122 which was called: # once (10µs+15µs) by Sub::Quote::_clean_eval at line 39 (do { no warnings "void"; package Type::Tiny; ((Scalar::Util::blessed($value) and $value->isa(q[Mojo::URL]))) or Type::Tiny::_failed_check($isa_check_for_metaschema_5furi, "InstanceOf[\"Mojo::URL\"]", $value, "attribute_name","metaschema_uri","attribute_step","isa check","mgaca","0","varname","\$self->{\"metaschema_uri\"}"); $value }), # spent 25µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@39.122 # spent 22µs making 14 calls to UNIVERSAL::isa, avg 2µs/call # spent 18µs making 14 calls to Scalar::Util::blessed, avg 1µs/call # spent 15µs making 1 call to warnings::unimport
40					($_[0]->{"metaschema_uri"} = $value),
41	14	37µs			($_[0]->{"metaschema_uri"}),
42					} }
43	1	1µs			$$_UNQUOTED = \&_set_metaschema_uri;
44					}
45	1	5µs			1;
46
47					;